REM Sample TURBO BASIC program which calls OPT-TECH SORT
INFILE$ ="SAMP.DAT"
OUTFILE$="SORTED.DAT"
CTLSTMT$="S(1,10,C,A)"
PRINT "CALLING OPT-TECH SORT..."
CALL SORTBTB(INFILE$,OUTFILE$,CTLSTMT$,NUMRECS%,RETCODE%)
PRINT "BACK FROM OPT-TECH SORT"
PRINT "NUMBER OF RECORDS = ",NUMRECS%
PRINT "SORT STATUS       = ",RETCODE%
SUB SORTBTB INLINE
$INLINE "SORTBTB.COM"
END SUB
END
